home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
data
/
nyan_e2
/
nyane2gp.plp
< prev
next >
Wrap
Text File
|
1993-11-30
|
2KB
|
70 lines
/********** プロフィールのダウンロード処理をする v1.04a用 **********/
var flag[3];
%DownOne{
var Handle[20];
var tarID[10];
var ProfDir[40];
%ProFILE logd|{\MAIL\PROFILE.LOG};
%DownProf{
case(Where1<>{MAIL},{Yes},{GoMail});
tarID:=@getchar(IndexLine,14,8);
footnote({ 「}|tarID|{」のプロフィールを取得しています});
Handle:=@getchar(@head(@getchar(IndexLine,32,18),
{\n})|{ },1,18);
write(ProFILE,{--------------------------------------------}|
{-----------------------------------\n});
write(ProFILE,Handle);
receive(ProFILE);
type({PROF }|tarID|{\n});
loop({ wait(120,{TimeOut},
{\nmore>}, {type({\n}); im({Yes})},
{E:終了)\n>}, {type({\n}); im({Yes})},
{MAIL>}, {
wait(1,{stoprec; im({No})},{\n},{im({Yes})})},
{FORUM>}, {
wait(1,{stoprec; im({No})},{\n},{im({Yes})})},
{プロフィールはありません-\n},{stoprec; im({No})}
);
});
write(ProFILE,{\n});
IndexLine:={済}|@getchar(IndexLine,3,80);
write(SaveFName,IndexLine);
wait(1);
};
mkdir(logd,{MAIL});
ProfDir:=logd|{\PROF\};
delfile(SaveFName);
fopen(IndexFName);
loop({ IndexLine:=@fread;
case(@getchar(IndexLine,1,12),
{予 Prof },{DownProf; im({Yes});
},{} ,{im({No});
}, ,{write(SaveFName,IndexLine); im({Yes});
});
});
fclose;
copyfile(SaveFName,IndexFName);
};
next:={No};
flag:={No};
fopen(IndexFName);
loop({ IndexLine:=@fread;
case(@getchar(IndexLine,1,12),
{予 Prof },{flag:={Yes};
},{予 LIB },{next:={Yes};
},{説 LIB },{next:={Yes};
},{覧 List },{next:={Yes};
},{予 NEW },{next:={Yes};
},,{
case(@getchar(IndexLine,1,2)={予} &&
@getchar(IndexLine,8,4)={Read},
{Yes},{ next:={Yes};
});
});
im(IndexLine<>{})
});
fclose;
case(flag,{Yes},{DownOne});
footnote({});